home *** CD-ROM | disk | FTP | other *** search
/ LOGIC Apps / Logic-APPLE_II_APPS.iso / pc / LOGIC Apple II 5.25" Library - DOS Part 3 / DOS078A.dsk / TEXT FILE RANDOM DISPLAY.bas < prev    next >
BASIC Source File  |  2012-02-16  |  750b  |  17 lines
  1. 5 D$ = "<CTRL-D>"
  2. 7  ONERR  GOTO 30000
  3. 9  PRINT "PROGRAM TO DISPLAY RANDOM ACCESS FILES": PRINT "ASSUMES ONE LINE OF TEXT PER RECORD...": PRINT "(I.E. ONE RETURN CHARACTER/RECORD"
  4. 10  PRINT : PRINT "HIT ANY KEY TO CONTINUE": GET A$: PRINT : HOME 
  5. 15  PRINT D$;"CATALOG"
  6. 17  PRINT 
  7. 20  INPUT "RANDOM TEXT FILENAME: ";RF$
  8. 30  INPUT "WHAT IS THE RECORD LENGTH? ";NB
  9. 40  PRINT : PRINT D$;"OPEN ";RF$;",L";NB
  10. 50  INPUT "READ WICH RECORDS (FROM,TO)? ";R1,R2: PRINT 
  11. 60  FOR I = R1 TO R2
  12. 70  PRINT D$;"READ ";RF$;",R";I
  13. 80  GET A$: PRINT : PRINT A$;: IF  ASC(A$) < >13  THEN 80
  14. 90  NEXT : PRINT D$: PRINT : GOTO 50
  15. 30000 ER =  PEEK(222)
  16. 30100  IF ER = 5  THEN  PRINT D$: PRINT "RECORD CALLED OUT OF BOUNDS": PRINT D$;"CLOSE": GOTO 40
  17. 30200  PRINT D$;"CLOSE"